home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jtextbasic.tcl < prev    next >
Encoding:
Text File  |  1995-02-05  |  2.0 KB  |  70 lines
  1. # jtextbasic.tcl - support for basic Text bindings
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. ######################################################################
  8. # NOTE: the "jtextemacs.tcl" and "jtextvi.tcl" libraries contain actual
  9. #       procedures for emulation-specific actions.  "basic" bindings,
  10. #       however, don't use anything that isn't general (and therefore
  11. #       in jbindtext.tcl), so this file just has j:tb:basic_init in it.
  12. ######################################################################
  13.  
  14. ######################################################################
  15. # j:tb:basic_init t - set basic bindings up for widget $t (possibly "Text")
  16. ######################################################################
  17.  
  18. proc j:tb:basic_init { {t Text} } {
  19.   global j_teb
  20.   set j_teb(cutbuffer) {}
  21.   set j_teb(dragscroll,txnd) 0
  22.   set j_teb(dragscroll,delay) 50
  23.   set j_teb(scanpaste_time) 0
  24.   set j_teb(scanpaste_paste) 1
  25.  
  26.   set j_teb(keymap,$t) basic
  27.   
  28.   # in tk4, we need to make sure tkTextBind is called _before_
  29.   #   j:tb:key_bind!
  30.   j:tk4 {tkTextBind Enter}
  31.   
  32.   j:tb:key_bind $t
  33.   j:tb:mouse_bind $t
  34.   
  35.   j:tkb:mkmap Text basic basic {
  36.     {Control-slash        j:tb:select_all}
  37.     {Control-backslash        j:tb:clear_selection}
  38.     
  39.     {Delete            j:tkb:delete_left}
  40.     {BackSpace            j:tkb:delete_left}
  41.     {Return            j:tkb:insert_newline}
  42.     
  43.     {Up                j:tkb:up}
  44.     {Down            j:tkb:down}
  45.     {Left            j:tkb:left}
  46.     {Right            j:tkb:right}
  47.     
  48.     {Home            j:tkb:bol}
  49.     {End            j:tkb:eol}
  50.     
  51.     {Next            j:tkb:scroll_down}
  52.     {Prior            j:tkb:scroll_up}
  53.     
  54.     {Control-v            j:tkb:paste_selection}
  55.     {Control-i            j:tkb:self_insert}
  56.     {Control-j            j:tkb:self_insert}
  57.     {Control-h            j:tkb:delete_left}
  58.     
  59.     {Control-DEFAULT        j:tb:beep}
  60.     {DEFAULT            j:tkb:self_insert}
  61.     {Shift-DEFAULT        j:tkb:self_insert}
  62.   }
  63. }
  64.  
  65. # deprecated alias for backwards-compatibility:
  66.  
  67. proc j:tb:basic_bind { W } {
  68.   j:tb:basic_init $W
  69. }
  70.